home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / muirexx2.1 / demos / muirexxbuild / attrs.rexx < prev    next >
OS/2 REXX Batch file  |  1996-08-25  |  5KB  |  133 lines
  1. /* */
  2. options results
  3. parse arg comm' 'aname
  4.  
  5. /* Attribute TAG ID definitions */
  6.  
  7. Listview_DragType =               0x80425cd3 /* V11 isg LONG              */
  8. List_Active =                     0x8042391c /* V4  isg LONG              */
  9. List_Quiet =                      0x8042d8c7 /* V4  .s. BOOL              */
  10. Weight =                          0x80421d1f /* V4  i.. WORD              */
  11. MUIA_Frame =                           0x8042ac64 /* V4  i.. LONG              */
  12.  
  13. /* TAG variable definitions */
  14.  
  15. TRUE = 1
  16. FALSE = 0
  17. Listview_DragType_Immediate = 1
  18. List_Insert_Bottom = -3
  19.  
  20. address BUILD
  21.  
  22. select
  23.     when comm = 'ADD' then do
  24.         parse var aname name','value .
  25.         list ID ALST INSERT NODUP STRING name',='
  26.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING name '=' value
  27.     end
  28.     when comm = 'VADD' then do
  29.         parse var aname name','value .
  30.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING name '=' value
  31.     end
  32.     when comm = 'MADD' then do
  33.         parse var aname name','value .
  34.         list ID ALST INSERT STRING name
  35.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING name '=' value
  36.     end
  37.     when comm = 'LIST' then do
  38.         window ID WATTR TITLE '"Attribute List"' COMMAND '"window ID WATTR CLOSE"' PORT BUILD
  39.             list ID BLST ATTRS Listview_DragType Listview_DragType_Immediate
  40.         endwindow
  41.  
  42.         call open('attrs','build:attrs.lst','R')
  43.         list ID BLST ATTRS List_Quiet TRUE
  44.         do while ~eof('attrs')
  45.             line = readln('attrs')
  46.             if line = '' then leave
  47.             parse var line name '=' value .
  48.             list ID BLST INSERT POS List_Insert_Bottom STRING name','value
  49.         end
  50.         list ID BLST ATTRS List_Quiet FALSE
  51.         call close('attrs')
  52.     end
  53.     when comm = 'VLIST' then do
  54.         window ID WVAR TITLE '"Variable List"' COMMAND '"window ID WVAR CLOSE"' PORT BUILD
  55.             list ID CLST ATTRS Listview_DragType Listview_DragType_Immediate
  56.         endwindow
  57.  
  58.         call open('vars','build:vars.lst','R')
  59.         list ID CLST ATTRS List_Quiet TRUE
  60.         do while ~eof('vars')
  61.             line = readln('vars')
  62.             if line = '' then leave
  63.             parse var line name '=' value .
  64.             list ID CLST INSERT POS List_Insert_Bottom STRING name','value
  65.         end
  66.         list ID CLST ATTRS List_Quiet FALSE
  67.         call close('vars')
  68.     end
  69.     when comm = 'MLIST' then do
  70.         window ID WMETH TITLE '"Method List"' COMMAND '"window ID WMETH CLOSE"' PORT BUILD
  71.             list ID MLST ATTRS Listview_DragType Listview_DragType_Immediate
  72.         endwindow
  73.  
  74.         call open('meths','build:meths.lst','R')
  75.         list ID MLST ATTRS List_Quiet TRUE
  76.         do while ~eof('meths')
  77.             line = readln('meths')
  78.             if line = '' then leave
  79.             parse var line name '=' value .
  80.             list ID MLST INSERT POS List_Insert_Bottom STRING name','value
  81.         end
  82.         list ID MLST ATTRS List_Quiet FALSE
  83.         call close('meths')
  84.     end
  85.     when comm = 'ASKSET' then do
  86.         parse var aname name',='value
  87.         window ID ASET COMMAND '"build:attrs SET 'strip(name)'"'
  88.             group HORIZ
  89.                 text LABEL strip(name)' = '
  90.                 string ID ASTR COMMAND '"build:attrs SET 'strip(name)'"' CONTENT value
  91.                 image ID ASWH COMMAND '"build:attrs ASKVAR 'strip(name)'"' SPEC '6:18'
  92.             endgroup
  93.         endwindow
  94.     end
  95.     when comm = 'ASKVAR' then do
  96.         window ID EVAR TITLE '"Variable List"' COMMAND '"window ID EVAR CLOSE"' PORT BUILD
  97.             list ID ELST COMMAND '"string ID ASTR CONTENT %s"' PORT BUILD
  98.         endwindow
  99.  
  100.         call open('vars','build:vars.lst','R')
  101.         list ID ELST ATTRS List_Quiet TRUE
  102.         do while ~eof('vars')
  103.             line = readln('vars')
  104.             if line = '' then leave
  105.             parse var line vname .
  106.             n = index(upper(substr(vname,6)),upper(substr(aname,6,4)))
  107.             if n > 0 then list ID ELST INSERT POS List_Insert_Bottom STRING vname
  108.         end
  109.         list ID ELST ATTRS List_Quiet FALSE
  110.         call close('vars')
  111.     end
  112.     when comm = 'SET' then do
  113.         string ID ASTR
  114.         val = result
  115.         window ID ASET CLOSE
  116.         list ID ALST ATTRS List_Active
  117.         n = result
  118.         list ID ALST POS n STRING aname',='val
  119.         call open('vars','build:vars.lst','R')
  120.         do while ~eof('vars')
  121.             line = readln('vars')
  122.             if line = '' then leave
  123.             parse var line vname '=' value .
  124.             if index(vname,val) > 0 then do
  125.                 list ID VLST INSERT POS List_Insert_Bottom NODUP STRING vname '=' value
  126.                 leave
  127.             end
  128.         end
  129.         call close('vars')
  130.     end
  131.     otherwise nop
  132. end
  133.